﻿
Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub TabControl1_DrawItem(ByVal sender As Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles TabControl1.DrawItem

        'Firstly we'll define some parameters.
        Dim Fill As New SolidBrush(Color.DarkGreen)
        Dim Text As New SolidBrush(Color.GreenYellow)
        Dim sf As New StringFormat
        Dim CurrentTab As TabPage = TabControl1.TabPages(e.Index)
        Dim Rect As Rectangle = TabControl1.GetTabRect(e.Index)

        sf.Alignment = StringAlignment.Center
        sf.LineAlignment = StringAlignment.Center

        'If we are currently painting the Selected TabItem we'll 
        'change the brush colors and inflate the rectangle.
        If CBool(e.State And DrawItemState.Selected) Then
            Fill.Color = Color.YellowGreen
            Text.Color = Color.DarkGreen
            Rect.Inflate(4, 4)
        End If

        'Set up rotation for left and right aligned tabs
        If TabControl1.Alignment = TabAlignment.Left Or TabControl1.Alignment = TabAlignment.Right Then
            Dim RotateAngle As Single = 90
            If TabControl1.Alignment = TabAlignment.Left Then RotateAngle = 270
            Dim cp As New PointF(Rect.Left + (Rect.Width \ 2), Rect.Top + (Rect.Height \ 2))
            e.Graphics.TranslateTransform(cp.X, cp.Y)
            e.Graphics.RotateTransform(RotateAngle)
            Rect = New Rectangle(-(Rect.Height \ 2), -(Rect.Width \ 2), Rect.Height, Rect.Width)
        End If

        'Next we'll paint the TabItem with our Fill Brush
        e.Graphics.FillRectangle(Fill, Rect)

        'Now draw the text.
        e.Graphics.DrawString(CurrentTab.Text, e.Font, Text, RectangleF.op_Implicit(Rect), sf)

        'Reset any Graphics rotation
        e.Graphics.ResetTransform()

        'Finally, we should Dispose of our brushes.
        Fill.Dispose()
        Text.Dispose()

    End Sub


    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
        Dim Text As String = "1. Accomplish deposit slips and have them signed by an OTREAS" &
                             "Finance Officer. Make sure to log in the Transaction Monitoring Log." +
                           Environment.NewLine & "2. Deposit money in the Accounting office" +
                           Environment.NewLine & "3. Staple the FRA Report (applicable to FRA’s and sponsorships)" &
                                                 ", 1 deposit slip,  a photocopy of the yellow receipt and the yellow receipt" &
                                                 ", and then submit in the In tray. Sign in the In Log Sheet."
        TextBox1.Text = Text
    End Sub
    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
        Dim Text As String = "1. 1 set of Deposit Slips" +
                           Environment.NewLine & "2. Photocopy of check(3 copies)"
        TextBox1.Text = Text
    End Sub
    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        Dim Text As String = "1.Complete all documents needed." +
                           Environment.NewLine & "2. Attach documents and submit in the IN tray" +
                           Environment.NewLine & "3. Sign in the Financial Monitoring Log" +
                           Environment.NewLine & "4. Check on the status of the direct payment and get check" &
                                                 " from Window G of the Accounting Office. CHECKS WILL BE RELEASED AT" &
                                                 " LEAST A WEEK FROM SUBMISSION OF THE PRS TO THE ACCOUNTING OFFICE."
        TextBox1.Text = Text
    End Sub
    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        Dim Text As String = "1. Sales Invoice (1 original, 2 photocopies)" +
                           Environment.NewLine & "2. A-Form (3 photocopies)" +
                           Environment.NewLine & "3. PRS (1 set)" +
                           Environment.NewLine & "4. Expense Report (3 copies)" +
                           Environment.NewLine & "*Sales Invoice must be addressed only to De La Salle University or DLSU"
        TextBox1.Text = Text
    End Sub
    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        Dim Text As String = " 1. Complete all documents needed." +
                           Environment.NewLine & "2. Attach all documents and submit in the IN tray." +
                           Environment.NewLine & "3. Sign in the Financial Monitoring Log." +
                           Environment.NewLine & "4. Check on the status of the reimbursement and" &
                                                 " get check from Window G of the Accounting Office." &
                                                 " CHECKS WILL BE RELEASED AT LEAST A WEEK FROM" &
                                                 " SUBMISSION OF THE PRS TO THE ACCOUNTING OFFICE."
        TextBox1.Text = Text
    End Sub
    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        Dim Text As String = "1. Official Receipt (1 original, 2 photocopies)" +
                           Environment.NewLine & "2. A-Form (3 photocopies)" +
                           Environment.NewLine & "3. PRS (1 set)" +
                           Environment.NewLine & "4. Expense Report (4 copies)" +
                           Environment.NewLine & "5. Quotation from at least 3 suppliers " &
                                                 "(for justification that items bought were canvassed" &
                                                 " and were purchased at the cheapest possible price.)" +
                           Environment.NewLine & "6. Justification Letter for not using Cash Advance." &
                                                 " (If expenses are above Php 1,000.00)" +
                           Environment.NewLine & "7. Justification for Late Reimbursement." &
                                                 " (If not processed within the term of actual transaction)" +
                           Environment.NewLine & "*Official Receipts will only be honored if it is stated" &
                                                 " that the payment is received from DLSU or" &
                                                 "De La Salle University, no more, no less."
        TextBox1.Text = Text
    End Sub
    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        Dim Text As String = "1. Accomplish the Cash Advance Liquidation form one week after the activity" +
                           Environment.NewLine & "2. For cash advance with remaining cash:" +
                                 Environment.NewLine & "    a. Proceed to the Accounting Office and Look for the" &
                                                               " officer-in-charge of Cash Advance(Ms. Celine)" +
                                 Environment.NewLine & "    b. Have her check the completed Cash Advance Liquidation Form" &
                                                               " and the Official Receipts, and ask" & "           for the" &
                                                               " Green Slip (to deposit the remaining cash)" +
                                 Environment.NewLine & "    c. Deposit money in the Accounting Office" +
                                 Environment.NewLine & "    d. Claim both the White and Yellow Official Receipts" +
                           Environment.NewLine & "3. Submit the following documents on the IN tray:" +
                                 Environment.NewLine & "    a. Cash Advance Liquidation Form (1 original, 2 photocopies)" +
                                 Environment.NewLine & "    b. White Official Receipt (1 original, 2 photocopies – pasted on scratch paper)" +
                                 Environment.NewLine & "    c. Yellow Official Receipt (1 original)" +
                           Environment.NewLine & "4. Log in the Cash Advance and Liquidation Log"
        TextBox1.Text = Text
    End Sub
    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        Dim Text As String = "1. Cash Advance Liquidation Form"
        TextBox1.Text = Text
    End Sub
    Private Sub Button14_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button14.Click
        Dim Text As String = "1. Complete all documents needed." +
                           Environment.NewLine & "2. Attach the documents and submit in the IN tray" +
                           Environment.NewLine & "3. Log in the Cash Advance and Liquidation Log" +
                           Environment.NewLine & "4. Check on the status of the cash advance and get check from Window G" &
                                                  "of the Accounting Office." & " CHECKS WILL BE RELEASED AT LEAST A WEEK FROM" &
                                                  " SUBMISSION OF THE PRS TO THE ACCOUNTING OFFICE" +
                           Environment.NewLine & "5. Billing Statement/Delivery Receipt (3 copies)"
        TextBox1.Text = Text
    End Sub
    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        Dim Text As String = "1. A-Form (3 photocopies)" +
                           Environment.NewLine & "2. Expense Report " &
                                                "– with probable quotation of expenses (3 copies)" +
                           Environment.NewLine & "3. PRS (1 set)"
        TextBox1.Text = Text
    End Sub
    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Dim Text As String = "1. Accomplish the letter for Internal Booktransfer " +
                           Environment.NewLine & "2. Place it in the In tray" +
                           Environment.NewLine & "3. Log in the Financial Monitoring Log"
        TextBox1.Text = Text
    End Sub
    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        Dim Text As String = "1. Letter for Internal Booktransfer (2 Copies) "
        TextBox1.Text = Text
    End Sub
    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Dim Text As String = "1. A-Form (3 copies) " +
                            Environment.NewLine & "2. Letter for Booktransfer (4 copies)" +
                            Environment.NewLine & "3. PRS (1 set)" +
                            Environment.NewLine & "4. Order Slips from FILTREX/MRDO/Canteen/ Bookstore (3 copies)" +
                            Environment.NewLine & "5. Billing Statement/Delivery Receipt (3 copies)"
        TextBox1.Text = Text
    End Sub
    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Dim Text As String = "1. Secure 1 set of the appropriate job order slips and log in the Transaction Monitoring Log " +
                           Environment.NewLine & "2. Fill out the slips and have Filtrex/MRDO/Canteen/Bookstore sign with the final amount" +
                           Environment.NewLine & "3. Attach the approved A-Form to the slips and have an OTREAS Finance Officer sign it" +
                           Environment.NewLine & "4. Have the job order done. Get the billing statement." +
                           Environment.NewLine & "5. Secure and accomplish 1 set of PRS" +
                           Environment.NewLine & "6. Accomplish 4 copies of the expense report" +
                           Environment.NewLine & "7. Attach the: A-Form (3 Copies), Letter for Booktransfer (4 copies), PRS (1 Set)" &
                                                 ", Order Slips (3 original copy – pasted on scratch paper)" &
                                                 ", Billing Statement/Delivery Receipt (1 original; 2 photocopies – pasted on scratch paper)" +
                           Environment.NewLine & "8. Place the documents on the In tray" +
                           Environment.NewLine & "9. Log in the Financial Monitoring Log"
        TextBox1.Text = Text
    End Sub
    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Dim Text As String = "1. After receiving a billing statement, secure and accomplish 1 set of PRS" +
                           Environment.NewLine & "2. Accomplish 4 copies of the letter for booktransfer" +
                           Environment.NewLine & "3. Attach the: A-Form (3 photocopies), Letter for Booktransfer (3 copies), PRS (1 Set)" &
                                                 ", Billing Statement (1 Original Copy; 2 Photocopies – pasted on scratch paper)" +
                           Environment.NewLine & "4. Place the documents on the In tray" +
                           Environment.NewLine & "5. Log in the Financial Monitoring Log"
        TextBox1.Text = Text
    End Sub
    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim Text As String = "1. Attach the: A-Form (3 photocopies), Letter for Booktransfer (3 copies)t" &
                             ", Photocopy of the Memorandum of Agreement between the concerned units (1 Copy)" &
                             ", PRS (1 set)" +
                           Environment.NewLine & "2. Place the documents on the In tray" +
                           Environment.NewLine & "3. Log in the Financial Monitoring Log"
        TextBox1.Text = Text
    End Sub


    Private Sub TabControl1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TabControl1.MouseClick
        TextBox1.Clear()
    End Sub

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
        Me.Close()
        Form3.Show()

    End Sub
End Class

